Шаг 145 - Добавляем проект.

Мы с Вами добавим проект. Делается это совсем просто. В нашем ActiveX создаем переменную типа проект.

Public vbas As Apc
Public vbasprg As Project
Public myapp As MyAppication

А в инициализации этот проект добавляем.

Public Sub Init()
vbas.LicenseKey = "16175148714896599659AFABD8ED3C2A416B45E4CD6F5484BD8CE1"
vbas.ApplicationObject = myapp
vbas.hWnd = mvarhWndHost
Set vbasprg = vbas.Projects.Add(axProjectNormal, "VBATest")
End Sub

Клиента менять не надо, собираем снова ActiveX, а клиента просто запускаем.

145_1.gif (8066 b)

Во первых все стало по настоящему. Давайте добавим модуль и создадим функцию.

145_2.gif (8696 b)

Все прекрасно работает. Можно сохранять, загружать проекты и так далее.

Hosted by uCoz